home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
CD ROM Paradise Collection 4
/
CD ROM Paradise Collection 4 1995 Nov.iso
/
program
/
swags_z.zip
/
STRINGS.SWG
/
0034_Get MASK from path-mask.pas
< prev
next >
Wrap
Pascal/Delphi Source File
|
1993-09-26
|
689b
|
21 lines
{*****************************************************************************
* Function ...... GetMask()
* Purpose ....... To return the mask from a path/mask string
* Parameters .... Path String to extract the mask from
* Returns ....... The file mask portion of <Path>
* Notes ......... None
* Author ........ Martin Richardson
* Date .......... May 13, 1992
*****************************************************************************}
TYPE
String13 = STRING[13];
FUNCTION GetMask( Path: DirStr ): String13;
VAR dir : DirStr;
name : NameStr;
ext : ExtStr;
BEGIN
FSPLIT( path, dir, name, ext );
GetMask := name + ext;
END;